(COMMENT BPS 42000. )
(PROGN

(SSTATUS INTERRUPT 13. 'GC-OVERFLOW-DAEMON) 

(FASLOAD DEMON FAS DSK (AID RPG))
(APPLY 'CRUNIT (LIST 'DSK (STATUS UDIR)))
(FASLOAD NCOMPLR)
(FASLOAD GETMID)
(FASLOAD FASLAP)
(FASLOAD EREAD)
(FASLOAD NCOREQ)
(FASLOAD STACK)
(DEFPROP CGOL (CGOL FAS DSK (MAC LSP)) AUTOLOAD)
(DEFPROP CGOLREAD (CGOL FAS DSK (MAC LSP)) AUTOLOAD)
(INITIALIZE)
(FASLOAD MACROD)
(FASLOAD MATCH)
(*FEXPR EREAD)
'DONE)